home *** CD-ROM | disk | FTP | other *** search
/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / ZAP / !Zap / !Boot next >
Text File  |  2002-05-08  |  2KB  |  48 lines
  1. | Zap directory boot file
  2. | (c) Zap Developers
  3.  
  4. If "<Zap$Dir>">"" Then Obey
  5.  
  6. | Set up directory paths and load sprites
  7. Set Zap$Dir <Obey$Dir>
  8. Set ZapCode$Path <Zap$Dir>.Code.
  9. Set ZapModules$Path <Zap$Dir>.Modules.
  10.  
  11. | Find operating system version
  12. SetEval Zap$OSVsn 400
  13. RMEnsure UtilityModule 4.00 SetEval Zap$OSVsn 350
  14. RMEnsure UtilityModule 3.50 SetEval Zap$OSVsn 300
  15. RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200
  16.  
  17. | Load sprites
  18. Set ZapSprites$Path <Zap$Dir>.Resources.<Zap$OSVsn>.,<Zap$Dir>.Resources.
  19. IconSprites ZapSprites:!Sprites
  20. Unset ZapSprites$Path
  21.  
  22. | Load ObeySupport
  23. RMEnsure ObeySupport 0.02 RMLoad ZapCode:ObeySpt
  24.  
  25. | Boot ZapFonts and ZapUser if they're stored inside us and haven't already been booted
  26. RMEnsure UtilityModule 3.50 If "<Alias$IfThere>"="" Then Set Alias$IfThere ZapCode:IfThere %%*0
  27.  
  28. If "<ZapFontsSource$Path>" = "" Then IfThere BootResources:!ZapFonts Then Obey BootResources:!ZapFonts.!Boot
  29. If "<ZapFontsSource$Path>" = "" Then IfThere <Zap$Dir>.!ZapFonts Then Obey <Zap$Dir>.!ZapFonts.!Boot
  30. Set Alias$ZapBootUser IfThere Choices:!ZapUser Then Obey Choices:!ZapUser.!Boot
  31. IF "<Choices$Write>" = "" Then Set Alias$ZapBootUser ""
  32. If "<ZapUser$Path>" = "" Then ZapBootUser
  33. Unset Alias$ZapBootUser
  34. If "<ZapUser$Path>" = "" Then IfThere <Zap$Dir>.!ZapUser Then Obey <Zap$Dir>.!ZapUser.!Boot
  35.  
  36. | Set up Zap$Country and paths dependent upon it
  37. IfThere ZapUser:Config.Country Then Run ZapUser:Config.Country
  38. If "<Zap$Country>">"" Then Else If "<Sys$Country>">"" Then Set Zap$Country <Sys$Country> Else Set Zap$Country UK
  39. Set ZapResources$Path <Zap$Dir>.Resources.<Zap$Country>.,<Zap$Dir>.Resources.UK.
  40. Set ZapTemplates$Path ZapUser:Templates.<Zap$Country>.,ZapResources:Templates.<Zap$Country>.,ZapUser:Templates.,ZapResources:Templates.
  41.  
  42. | Boot extension modules as appropriate
  43. Obey ZapCode:SetZapGen
  44. WimpSlot -min 32K
  45. Run ZapCode:Config.ConfigScan -boot
  46. If "<Zap$Temp>" = "1" Then WimpSlot -min 128K -max 128K
  47. If "<Zap$Temp>" = "1" Then Run ZapCode:Config.CreateConf -script ZapCode:Config.BootScript
  48. Obey ZapGenerated:!ZapBoot